Option Explicit
Sub C_Sample044()
    Dim myWb As Workbook
    Dim myWd As Window    
    Set myWb = Workbooks(1) 			'Nï
    Set myWd = myWb.Windows(1)		'N
    With myWd
        .Split = True					'ΪL
        '.SplitRow = 3 				'NWUΦmC
        .SplitVertical = 50				'NWUΦmI
        .SplitColumn = 4 				'NkΦm
        '.SplitHorizontal=50 			'NkΦmI
        MsgBox "wgΧA{bnѰΡC"
        .Split = False
    End With
    Set myWd = Nothing					'
    Set myWb = Nothing
End Sub
